From: Glenn Morris Date: Mon, 17 Jun 2019 00:34:27 +0000 (-0700) Subject: Tweak how byte-compile-print-syms fills X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2849 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a95d614c96fbe224babc2a17d3f175ab26da003e;p=emacs.git Tweak how byte-compile-print-syms fills * lisp/emacs-lisp/bytecomp.el (byte-compile-print-syms): Use fill-column from the compile log buffer. --- diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 13d563bde91..b917b713c06 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1601,7 +1601,10 @@ extra args." (while syms (setq s (symbol-name (pop syms)) L (+ L (length s) 2)) - (if (< L (1- fill-column)) + (if (< L (1- (buffer-local-value 'fill-column + (or (get-buffer + byte-compile-log-buffer) + (current-buffer))))) (setq str (concat str " " s (and syms ","))) (setq str (concat str "\n " s (and syms ",")) L (+ (length s) 4))))